home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / bob13.arc / T.BOB < prev    next >
Encoding:
Text File  |  1991-10-02  |  225 b   |  12 lines
  1. main()
  2. {
  3.     a = "ABCDabcd";
  4.     len = sizeof(a);
  5.     for (i = 0; i < len; ++i)
  6.     print(a[i],"\n");
  7.     for (i = 0; i < len; ++i)
  8.     if (a[i] >= 'a' && a[i] <= 'z')
  9.         a[i] = a[i] - 'a' + 'A';
  10.     print(a,"\n");
  11. }
  12.